#!/usr/bin/env perl

use Modern::Perl 2011;
use autodie;

open(TRAITS, "npc_traits.dat") || die "Can't open npc_traits.dat";

while(<TRAITS>)
{
	print "...Comment...\n" if $_ =~ /#/;	

	my $id = $_ if $_ =~ /\d/;
	my $trait = $1 if $_ =~ /(\w)/;
	if ($_ =~ /~/)
	{
		say "Emitting YAML for $trait ($id)";
	}
}
